Option Explicit
Sub E_Sample004()
   'ո  E_Data01u@
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myCnt  As Long
    Set myRng1 = Columns("C")				'jMӷd
    For Each myRng2 In myRng1.Cells
        If myRng2.Value Like "*t*" Then		'wjM
	myCnt = myCnt + 1
        End If
    Next
    MsgBox "]tutvoӦW٪Ʀ" & myCnt & ""
    Set myRng1 = Nothing					'
    Set myRng2 = Nothing
End Sub
